home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Desktop Improver / PictIcon / Source / mod / compare.e < prev    next >
Encoding:
Text File  |  1996-09-27  |  198 b   |  10 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC bigger(a,max) IS IF (a<max) THEN max ELSE a
  5. PROC smaller(a,min) IS IF (a>min) THEN min ELSE a
  6. PROC limit(a,min,max)
  7.     IF a<min THEN a:=min
  8.     IF a>max THEN a:=max
  9. ENDPROC a
  10.